home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / Printout / Source / pri2.1d.bas next >
Encoding:
BASIC Source File  |  2000-01-30  |  4.2 KB  |  228 lines
  1.  
  2. REM Zweckform PRINTOUT V2.1
  3. REM Whritten by Marcus Neervoort
  4. REM © 1999/2000
  5.  
  6. Start:
  7. OPTION BASE 0
  8. SCREEN 1,640,256,2,2
  9. WINDOW 2,"Zweckform PRINTOUT V2.1",,0,1
  10. GOSUB Font:
  11. GOSUB Top:
  12. LOCATE 4,26:PRINT "Zweckform PRINTOUT V2.1"
  13. LOCATE 5,26:PRINT "============================"
  14. LOCATE 9,23:PRINT "© 1999/2000 Marcus Neervoort"
  15. LOCATE 13,23:PRINT "E-Mail: M.Neervoort@T-Online.de"
  16. LOCATE 17,30:PRINT"Taste = Weiter..."
  17. SLEEP:SLEEP
  18.  
  19. Menue:
  20. CLS
  21. LOCATE 4,24:?"Zweckform PRINTOUT V2.1 - Menue"
  22. LOCATE 5,24:?"======================================"
  23. LOCATE 8,24:?"A = Über"
  24. LOCATE 10,24:?"C = CD Label"
  25. LOCATE 11,24:?"D = Disketten Label"
  26. LOCATE 13,24:?"Q = Beenden"
  27. LOCATE 16,24:INPUT"Ihre Wahl ";z$
  28. IF z$="a" OR z$="A" THEN GOTO About
  29. IF z$="c" OR z$="C" THEN GOTO Druckencd
  30. IF z$="d" OR z$="D" THEN GOTO Druckendisk
  31. IF z$="q" OR z$="Q" THEN GOTO Ende
  32. GOTO Menue
  33.  
  34. About:
  35. CLS
  36. LOCATE 4,27:?"Zweckform PRINTOUT V2.1"
  37. LOCATE 5,11:?"©1999/2000 Marcus Neervoort - M.Neervoort@T-Online.de"
  38. LOCATE 8,14:?"CD Label:"
  39. LOCATE 9,14:?"Drucken sie Label No. 6015, 6043, 3654, 6074, 6082"
  40. LOCATE 10,36:?"6044, 6045, 6046, 6047"
  41. LOCATE 13,14:?"Disk Label:"
  42. LOCATE 14,14:?"Drucken sie Label No. 4738, 4739"
  43. LOCATE 17,31:?"Taste = Weiter ..."
  44. SLEEP:SLEEP
  45. GOTO Menue
  46.  
  47. Druckencd:
  48. GOSUB Eingabecd
  49. GOSUB Einzugcd
  50. GOSUB Ausgabecd
  51. GOSUB Eingabecd
  52. GOSUB Ausgabecd2
  53. GOTO Druckencd
  54.  
  55. Eingabecd:
  56. CLS
  57. LOCATE 3,11:PRINT "CD Label Eingabe & Drucken"
  58. LOCATE 4,11:PRINT "=============================="
  59. LOCATE 7,11:PRINT "Titelzeile 1  - 12 Zeichen"
  60. LOCATE 9,11:PRINT "Titelzeile 2  - 18 Zeichen"
  61. LOCATE 12,11:PRINT "Fusszeile 1  - 18 Zeichen"
  62. LOCATE 14,11:PRINT "Fusszeile 2  - 12 Zeichen"
  63. LOCATE 19,11:PRINT "M = MENUE     N = NEU BEARBEITEN     ENTER = DRUCKEN"
  64. LOCATE 7,39:INPUT a$
  65. LOCATE 9,39:INPUT b$
  66. LOCATE 12,39:INPUT c$
  67. LOCATE 14,39:INPUT d$
  68. LOCATE 19,69:INPUT z$
  69. IF z$="n" OR z$="N" THEN GOTO Eingabecd
  70. IF z$="m" OR z$="M" THEN GOTO Menue
  71. RETURN
  72.  
  73. Einzugcd:
  74. FOR a=1 TO 6
  75. LPRINT
  76. NEXT a
  77. RETURN
  78.  
  79. Ausgabecd:
  80. LPRINT CHR$(14);"            ";a$
  81. LPRINT
  82. LPRINT
  83. LPRINT CHR$(14);"         ";b$
  84. LPRINT
  85. LPRINT
  86. LPRINT
  87. LPRINT
  88. LPRINT
  89. LPRINT
  90. LPRINT
  91. LPRINT
  92. LPRINT
  93. LPRINT
  94. LPRINT
  95. LPRINT
  96. LPRINT
  97. LPRINT CHR$(14);"         ";c$
  98. LPRINT
  99. LPRINT 
  100. LPRINT CHR$(14);"            ";d$
  101. LPRINT
  102. LPRINT
  103. LPRINT
  104. LPRINT
  105. LPRINT
  106. LPRINT
  107. LPRINT
  108. LPRINT
  109. LPRINT
  110. LPRINT
  111. LPRINT
  112. RETURN
  113.  
  114. Ausgabecd2:
  115. LPRINT CHR$(14);"            ";a$
  116. LPRINT
  117. LPRINT
  118. LPRINT CHR$(14);"         ";b$
  119. LPRINT
  120. LPRINT
  121. LPRINT
  122. LPRINT
  123. LPRINT
  124. LPRINT
  125. LPRINT
  126. LPRINT
  127. LPRINT
  128. LPRINT
  129. LPRINT
  130. LPRINT
  131. LPRINT
  132. LPRINT
  133. LPRINT CHR$(14);"         ";c$
  134. LPRINT
  135. LPRINT 
  136. LPRINT CHR$(14);"            ";d$
  137. LPRINT
  138. LPRINT
  139. LPRINT
  140. LPRINT
  141. LPRINT
  142. LPRINT
  143. LPRINT
  144. LPRINT
  145. RETURN
  146.  
  147. Druckendisk:
  148. GOSUB Eingabedisk
  149. GOSUB Einzugdisk
  150. GOSUB Ausgabedisk
  151. GOSUB Eingabedisk
  152. GOSUB Ausgabedisk
  153. GOSUB Eingabedisk
  154. GOSUB Ausgabedisk
  155. GOSUB Eingabedisk
  156. GOSUB Ausgabedisk
  157. GOSUB Eingabedisk
  158. GOSUB Ausgabedisk
  159. LPRINT
  160. LPRINT
  161. LPRINT
  162. GOTO Druckendisk
  163.  
  164. Eingabedisk:
  165. CLS
  166. LOCATE 3,11:PRINT "Disketten Label Eingabe & Drucken ( Maximal 22 Zeichen ! )"
  167. LOCATE 4,11:PRINT "==================================================================="
  168. LOCATE 7,11:PRINT "1. Zeile"
  169. LOCATE 9,11:PRINT "2. Zeile"
  170. LOCATE 11,11:PRINT "3. Zeile"
  171. LOCATE 13,11:PRINT "4. Zeile"
  172. LOCATE 15,11:PRINT "5. Zeile"
  173. LOCATE 19,11:PRINT "M = MENUE     N = NEU BEARBEITEN     ENTER = DRUCKEN"
  174. LOCATE 7,22:INPUT a$
  175. LOCATE 9,22:INPUT b$
  176. LOCATE 11,22:INPUT c$
  177. LOCATE 13,22:INPUT d$
  178. LOCATE 15,22:INPUT e$
  179. LOCATE 19,69:INPUT z$
  180. IF z$="n" OR z$="N" THEN GOTO Eingabedisk
  181. IF z$="m" OR z$="M" THEN GOTO Menue
  182. RETURN
  183.  
  184. Einzugdisk:
  185. FOR a=1 TO 5
  186. LPRINT
  187. NEXT a
  188. RETURN
  189.  
  190. Ausgabedisk:
  191. LPRINT "       ";a$
  192. LPRINT
  193. LPRINT "       ";b$
  194. LPRINT
  195. LPRINT "       ";c$
  196. LPRINT 
  197. LPRINT "       ";d$
  198. LPRINT 
  199. LPRINT "       ";e$
  200. LPRINT 
  201. LPRINT
  202. LPRINT
  203. RETURN
  204.  
  205. Ende:
  206. CLS:BEEP:BEEP:BEEP
  207. LOCATE 11,20:INPUT"Wollen Sie wirklich Beenden ( J / N ) ";f$
  208. IF f$="j" OR f$="J" THEN LIBRARY CLOSE:MENU RESET:SYSTEM
  209. GOTO Menue
  210.  
  211. Font:
  212. LIBRARY "SYS:Libs/BMaps/diskfont.library"
  213. LIBRARY "SYS:Libs/BMaps/graphics.library"
  214. DECLARE FUNCTION OpenDiskFont& LIBRARY
  215. FontName$="Diamond":Hoehe=12
  216. FontName$=FontName$+".font"+CHR$(0)
  217. TextAtrr&(0)=SADD(FontName$)
  218. TextAtrr&(1)=Hoehe*65536&
  219. Font&=OpenDiskFont& (VARPTR(TextAtrr&(0)))
  220. SetFont& WINDOW(8),Font&
  221. RETURN
  222.  
  223. Top:
  224. LIBRARY "SYS:Libs/BMaps/intuition.library"
  225. ClearMenuStrip(WINDOW(7))
  226. RETURN
  227.  
  228.